10 POKE53280,0:POKE 53281,0
20 REM    ********************
30 REM    * COMMODORE 64/128 *
40 REM    *WEATHER FORECASTER*
50 REM    ********************
60 PRINT"[147]"
70 PRINT""
80 PRINTTAB(9)"WEATHER FORECASTER VII"
90 PRINTTAB(9)"  BY JOHN SCOTT KULA"
100 PRINTTAB(11)"     01/23/87"
101 PRINT""
102 PRINTTAB(6)"RIGHT 83.64% OF THE TIME !!!"
110 FOR T=1 TO 7000:NEXT
120 PRINT"[147]"
130 PRINT"MAIN MENU"
140 PRINT"1. FORECAST WEATHER"
150 PRINT"2. QUIT"
160 GET A$:IF A$="" THEN 160
170 IF VAL(A$)>2ORVAL(A$)<1 THEN 160
180 IF A$="1" THEN 210
190 IF A$="2" THEN NEW
200 NEW
210 REM       * FORCASTING *
220 PRINT"[147]"
230 PRINTTAB(15)"FORECASTING"
240 PRINT""
250 PRINT"PLEASE ENTER:"
260 INPUT"TEMPERATURE:";TE
270 PRINT"IS THE TEMPERATURE:"
280 PRINT"1) STEADY"
290 PRINT"2) SLOW  RISE"
300 PRINT"3) RAPID RISE"
310 PRINT"4) SLOW  FALL"
320 PRINT"5) RAPID FALL"
330 GET TM$:TM=VAL(TM$):IF TM<6 AND TM>0 THEN 350
340 GOTO 330
350 PRINT"[147]"
360 PRINTTAB(15)"FORECASTING"
370 PRINT""
380 PRINT"PLEASE ENTER:"
390 INPUT"BAROMETRIC PRESSURE:";BP
400 PRINT"IS THE BAROMETER:"
410 PRINT"1) STEADY"
420 PRINT"2) SLOW  RISE"
430 PRINT"3) RAPID RISE"
440 PRINT"4) SLOW  FALL"
450 PRINT"5) RAPID FALL"
451 PRINT"A RAPID CHANGE IS ANY CHANGE IN"
452 PRINT"EXCESS OF 0.06 PER HOUR"
460 GET BM$:BM=VAL(BM$):IF BM<6 AND BM>0 THEN 480
470 GOTO 460
480 PRINT"[147]"
490 PRINTTAB(15)"FORECASTING"
500 PRINT""
510 PRINT"PLEASE ENTER:"
511 PRINT"AS N,NE,E,SE,S,SW,W,NW"
512 PRINT
520 INPUT"WIND DIRECTION:";WD$
530 IF WD$="N" THEN W=1:GOTO 620
540 IF WD$="NE"THEN W=2:GOTO 620
550 IF WD$="E" THEN W=3:GOTO 620
560 IF WD$="SE"THEN W=4:GOTO 620
570 IF WD$="S" THEN W=5:GOTO 620
580 IF WD$="SW"THEN W=6:GOTO 620
590 IF WD$="W" THEN W=7:GOTO 620
600 IF WD$="NW"THEN W=8:GOTO 620
610 GOTO 480
620 REM        * SEARCH *
630 IF BP>=30.29 AND BM=4 AND W>=6 AND W<=8 THEN 1000
640 IF BP>=30.24 AND BM=1 AND W>=6 AND W<=8 THEN 1010
650 IF BP>=30.19 AND BM=1 AND W>=6 AND W<=8 THEN 1020
660 IF BP>=30.19 AND BM=3 AND W>=6 AND W<=8 THEN 1030
670 IF BP>=30.19 AND BM=4 AND W>=6 AND W<=8 THEN 1040
680 IF BP>=30.17 AND BM=5 AND W>=6 AND W<=8 THEN 1050
690 IF BP>=30.17 AND BM=4 AND (W=4ORW=5) THEN 1060
700 IF BP>=30.15 AND BM=5 AND (W=4ORW=5)THEN 1070
710 IF BP>=30.15 AND BM=4 AND W>=2 AND W<=4 THEN 1080
720 IF BP>=30.13 AND BM=5 AND W>=2 AND W<=4 THEN 1090
730 IF BP>=30.13 AND BM=4 AND(W=2ORW=3) THEN 1100
740 IF BP>=30.11 AND BM=5 AND(W=2ORW=3) THEN 1110
750 IF BP>=29.89 AND BM=5 AND W>=1 AND W<=3 THEN 1120
760 IF BP>=29.85 AND BM=5 AND W>=3 AND W<=5 THEN 1130
770 IF BP<=30.10 AND BP=3 THEN 1140
780 IF BP<=30.10 AND BM=4 AND W>=2 AND W<=4 THEN 1150
790 IF BP<=30.10 AND BM=5 AND W>=2 AND W<=4 THEN 1160
800 IF BP<=30.00 AND BM=2 AND(W=5ORW=6) THEN 1170
1000 PRINT"FAIR AND WARMER FOR THE NEXT 48 HOURS.":GOTO 9000
1010 PRINT"CONTINUED FAIR WITH LITTLE OR NO CHANGE IN TEMPERATURE.":GOTO 9000
1020 PRINT"FAIR, LITTLE CHANGE IN TEMP. FOR THE    NEXT 24 TO 48 HOURS.":GOTO 9000
1030 IF TM=5 OR TM=4 AND TE<40THEN 1032
1031 PRINT"FAIR TODAY, RAINY AND WARMER IN 48      HOURS.":GOTO 9000
1032 PRINT"FAIR TODAY, POSSIBILITY OF SNOW IN 48   HOURS.":GOTO 9000
1040 IF TM=5 OR TM=4 AND TE<40THEN1042
1041 PRINT"WARMER, RAIN IN 24 TO 36 HOURS.":GOTO 9000
1042 PRINT"COLDER, POSSIBILITY OF SNOW IN 24 TO 36 HOURS.":GOTO 9000
1050 IF TM=5 OR TM=4 AND TE<40THEN1052
1051 PRINT"WARMER, RAIN IN 18 TO 24 HOURS.":GOTO 9000
1052 PRINT"COLDER, POSSIBILITY OF SNOW IN 18 TO 24 HOURS.":GOTO 9000
1060 IF TM=5 OR TM=4 AND TE<40THEN1062
1061 PRINT"POSIBILITY OF SNOW IN 2 TO 24 HOURS.":GOTO 9000
1062 PRINT"WINDY[160] POSIBILITY OF SNOW IN 12 TO 24   HOURS.":GOTO 9000
1070 IF TM=5 OR TM=4 AND TE<40THEN1072
1071 PRINT"WINDY, RAIN IN 12 TO 24 HOURS.":GOTO 9000
1072 PRINT"WINDY[160] POSIBILITY OF SNOW IN 12 TO 24   HOURS.":GOTO 9000
1080 IF TM=5 OR TM=4 AND TE<40THEN1082
1081 PRINT"RAIN IN 12 TO 18 HOURS.":GOTO 9000
1082 PRINT"POSIBILITY OF SNOW IN 12 TO 18 HOURS.":GOTO 9000
1090 IF TM=5 OR TM=4 AND TE<40THEN1092
1091 PRINT"WINDY AND RAIN IN 12 HOURS.":GOTO 9000
1092 PRINT"WINDY AND POSIBILITY OF SNOW IN 12      HOURS.":GOTO 9000
1100 PRINT"IN SUMMER WITH LIGHT WINDS:"
1101 PRINT"RAIN MAY NOT FALL FOR DAYS."
1102 PRINT"IN WINTER: RAIN IN 24 HOURS"
1103 GOTO 9000
1110 PRINT"IN SUMMER: RAIN LIKELY IN 12 TO 24 HRS."
1111 PRINT"IN WINTER: RAIN OR SNOW WITH INCREASING WINDS.":GOTO 9000
1120 IF TM=4 OR TM=5 AND TE<40 THEN1122
1121 PRINT"HEAVY RAIN.":GOTO 9000
1122 PRINT"SNOW FOLLOWED BY A COLD WAVE.":GOTO 9000
1130 IF TM=4 OR TM=5 AND TE<40 THEN1132
1131 PRINT"SEVERE STORM WARNING! WINDY & RAINY[160]    CLEARING IN 24 HRS.":GOTO 9000
1132 PRINT"SEVERE STORM WARNING! WINDY & SNOWY[160]    CLEARING IN 24 HRS.":GOTO 9000
1140 PRINT"CLEARING AND COLDER.":GOTO9000
1150 IF TM=4 OR TM=5 AND TE<40 THEN1152
1151 PRINT"RAIN FOR THE NEXT DAY OR TWO.":GOTO 9000
1152 PRINT"POSSIBILITY OF SNOW FOR THE NEXT DAY OR TWO.":GOTO 9000
1160 IF TM=4 OR TM=5 AND TE<35 THEN1162
1161 PRINT"RAIN & WINDY, FOLLOWED BY CLEARING AND  COOL TEMPS. IN 24 HRS.":GOTO9000
1162 PRINT"SNOW & WINDY, FOLLOWED BY CLEARING AND  COOL TEMPS. IN 24 HRS.":GOTO9000
1170 PRINT"CLEARING IN A FEW HOURS, FAIR FOR THE   NEXT SEVERAL DAYS.":GOTO9000
9000 PRINTTAB(8)"HIT ANY KEY FOR MAIN MENU"
9001 GET A$:IF A$="" THEN 9001
9002 GOTO 120